perm filename DIF1[M11,LCS] blob
sn#398770 filedate 1978-11-29 generic text, type T, neo UTF8
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,1
**** File 1) S1.F4[M11,LCS], Page 1 line 1
1) C THIS PROGRAM IS THE PROPERTY OF LELAND SMITH, PROFESSOR OF MUSIC
**** File 2) SC1X.F4[M11,LCS], Page 1 line 1
2) COMMENT ā VALID 00002 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00002 00002 C THIS PROGRAM IS THE PROPERTY OF LELAND SMITH, PROFESSOR OF MUSIC
2) C00013 ENDMK
2) Cā;
2) C THIS PROGRAM IS THE PROPERTY OF LELAND SMITH, PROFESSOR OF MUSIC
***************
**** File 1) S1.F4[M11,LCS], Page 1 line 6
1) C 3/78 ********** SCORE FOR PDP11 ********** LELAND SMITH
1) C THIS PROGRAM WRITES NOTE LISTS FOR THE PDP11 SOUND
1) C GENERATION PROGRAM. (MUSIC 5 TYPE)
1) C IF # OF INSTS IS CHANGED, ALSO CHANGE # IN 'INFO'('HELP') FORMAT.
**** File 2) SC1X.F4[M11,LCS], Page 2 line 6
2) C 7/74 ********** SCORE ********** LELAND SMITH, SEP.1969
2) C THIS PROGRAM WRITES NOTE LISTS FOR THE PDP10 SOUND
2) C GENERATION PROGRAM.
2) C IF # OF INSTS IS CHANGED, ALSO CHANGE # IN 'INFO'('HELP') FORMAT.
***************
**** File 1) S1.F4[M11,LCS], Page 1 line 15
1) C COMMON /INS/ INST(27),BG(60)
1) C COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
1) C INUM=INST# IPAR=PARAM#
**** File 2) SC1X.F4[M11,LCS], Page 2 line 15
2) C COMMON /P/P(1) /PL/PL(1) /INS/ INST(27),BG(60)
2) C COMMON INUM,IPAR,CNT(27),BT,IREST,DF,DUR(27)
2) C INUM=INST# IPAR=PARAM#
***************
**** File 1) S1.F4[M11,LCS], Page 1 line 21
1) C NOTE #S IN SUBROUTINE: (1-84) C4=37 FS4=43 C5=49 ETC.
1) C F1=86 F15=100 (NO F16!)
1) COMMON /Q/ BNW(100),NWZ /INS/INST(27),BG(60) /TYP/SOS,JOUT,
1) 1 LN,ITYP,TPALN(4),JED /SAM/ISAM
1) C SEE LABEL 1774 AND BELOW RE. BUFFER LIMIT.
1) COMMON/VV/LIMIT,V(2000) /A/ROFF(27),NP(27),PCH(27,32),
1) 1 RDEV(27),IPT(27,31),XT(27),OTH(20,16)
1) 1 ,P1(27),COPY(30),IFM(80)
1) 1 ,INVIS(27)
1) DIMENSION LIST(78),JNP(80)
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,2
1) C WITH VX,IOUT AT 70 AND IFM AT 80 OK FOR ONLY
1) C 40 LIT CHARS + 30 PARAMS PER INST.
1) C 60 BG TIMES AVAILABLE. FOR INSTS AND INSERTS AND EDITS.
1) COMMON P(30),J,L,CNT(27),BT,PL(48),MK,DF,DUR(27)
1) 1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG,IXX,ISEMI,IQT
1) 1 ,INP(144),VX(70),ISCA(12),IDAT(11),IAMP,K,KN,M,ML,CODE,IBLA
1) COMMON/B/MOT,PR,T5,NINS,I,TP,RA,KZY,NWX,INONLY,MX,
1) 1 Y,Z,ISLAC,MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,KB,NL,RC,W,
1) 1 ZZ,CHN,YY
1) 1 /D/TF,AMPFAC,OP1,DURX,IXIN,JFLNM
1) 1 /C/LPAR,IPRN,QX,IRTRO,INVRT,ICON,LCNT,
1) 1 IPAREN,JZ,BY,MLX,IZ,ALL,JD,LEND,QTS,ITMP,
1) 1 LP,ILIT,NLIT,KTMP,IC,RAX,RD,IA
1) C /C/=26
1) DOUBLE PRECISION IFLNM,INNM,ITP,IEDT,ITPD,JBLA
1) EQUIVALENCE (LIST,IFM(3)),(JNP,INP)
1) DATA KZY/27/,ISEMI/';'/,IQT/'"'/,LIMIT/2000/
1) C IAA=A ID=D IE=E IF=F IEN=N IPP=P ISS=S ITT=T
1) DATA IBLA/' '/,IXX/'X'/,JBLA/' '/,ITP/'TYPE'/
1) 1 ,IDAT/'0','1','2','3','4','5','6','7','8','9','.'/
1) 1 ,ISCA/'C','P','D','O','E','F','PX','G','S','A','T','B'/
1) CCC PLAY??? 1 ,ISCA/'C','P','D','O','E','F','PLAY;','G','S','A','T','B'/
1) LPAR=0
1) IPRN=0
1) QX=0.
1) MOT=0
1) IRTRO=-1
1) INVRT=-1
1) ICON=-1
1) LCNT=1
1) IPAREN=0
1) JZ=1
1) IAMP=0
1) C IAMP IS 'BLANK LINE'FLAG ON PP1-3.
**** File 2) SC1X.F4[M11,LCS], Page 2 line 21
2) C NOTE #S IN SUBROUTINE: (1-108) C4=49 FS4=55 B4=60 C5=61 ETC.
2) C F0=200 F99=299 (LIMIT IS F0-F99!) 'R'(REST)=199
2) COMMON /Q/ BNW(200),NWZ /INS/INST(27),BG(60) /TYP/SOS,JOUT,
2) 1 LN,ITYP,TPALN(4),JED /SAM/ISAM,ITRUNC
2) CC 7/74 COLGATE COMMON/TYP/ IS FOR COLTTY ROUT.
2) C SEE LABEL 1774 AND BELOW RE. BUFFER LIMIT.
2) COMMON/VV/LIMIT,V(5000) /A/ROFF(27),NP(27),
2) 1 RDEV(27),XT(27),OTH(20,16),P1(27),JFM(4),IFM(80)
2) 1 ,FINM(6),TINST(5),ENFI(5),TEDIT(4),INVIS(27)
2) DIMENSION LIST(78),JNP(80)
2) C WITH VX,IOUT AT 70 AND IFM AT 80 OK FOR ONLY
2) C 40 LIT CHARS + 99 PARAMS PER INST.
2) C 60 BG TIMES AVAILABLE. FOR INSTS AND INSERTS AND EDITS.
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,2
2) COMMON /PCIP/ PCH(27,102),IPT(27,101)
2) COMMON/P/P(99) /PL/PL(117) /COPY/NUMP,COPY(99) /COPYL/COPYL(99)
2) C NUMP=99 = TOTAL NUMBER OF PARAMETERS NOW AVAILABLE. RAN.DEV. IS NUMP+1
2) COMMON J,L,CNT(27),BT,MK,DF,DUR(27)
2) 1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG,IXX,ISEMI,IQT
2) 1 ,INP(145),VX(70),ISCA(12),IDAT(11),IAMP,K,KN,M,ML,CODE,IBLA
2) COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,
2) 1 Y,Z,ISLAC,MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,KB,NL,RC,W,
2) 1 ZZ,CHN,YY
2) 1 /D/TF,AMPFAC,OP1,DURX,IXIN,IFLNM
2) 1 /C/LPAR,IPRN,QX,RETRO,INVRT,ICON,LCNT,
2) 1 PARENS,JZ,BY,MLX,IZ,ALL,JD,LEND,QTS,ITMP,
2) 1 LP,ILIT,NLIT,KTMP,IC,RAX,RD,IA
2) C /C/=26
2) EQUIVALENCE (LIST,IFM(3)),(JNP,INP)
2) DATA KZY/27/,ISEMI/';'/,IQT/'"'/,LIMIT/5000/,NUMP/99/
2) 1, JFM(3)/','/
2) C IAA=A ID=D IE=E IF=F IEN=N IPP=P ISS=S ITT=T
2) DATA IBLA/' '/,IXX/'X'/
2) 1 ,ISCA/'C','P','D','O','E','F','PLAY;','G','S','A','T','B'/
2) 1 ,IDAT/'0','1','2','3','4','5','6','7','8','9','.'/
2) TYPE 8003
2) 8003 FORMAT(' FOR "MUS10" OUTPUT, FIRST TYPE "MUS10"'/)
2) C 1' NOW 99 PARAMETERS MAY BE USED.'/
2) C 1' FOR RANDOM RESTS USE RR '/
2) C 1' FOR RANDOM P1 DEVIATION USE RD'/)
2) ISAM=-1
2) ITRUNC=0
2) LPAR=0
2) IPRN=0
2) QX=0.
2) MOT=0
2) RETRO=-1.
2) INVRT=-1
2) ICON=-1
2) LCNT=1
2) PARENS=0
2) JZ=1
2) CALL RNDINT
2) C INIT RAND NUM GENERATOR.
2) CC PR=0
2) IAMP=0
2) C IAMP IS 'BLANK LINE'FLAG ON PP1-3.
***************
**** File 1) S1.F4[M11,LCS], Page 1 line 68
1) K=0
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,2
1) IDALL=-1
1) QTS=-1.
1) KB=0
1) NWZ=1
1) BNW(1)=0
1) I=1
1) KL=0
1) TP=0
1) RA=0
1) CHN=0
1) DO 127 K=1,77,3
1) 127 LIST(K)=0
1) C INITIALIZES MOTIVIC LIST FOR ERROR FINDING ROUTINE.
1) NWX=0
1) BY=-1
1) DO 1128 K=1,KZY
1) INVIS(K)=0
1) INST(K)=0
1) CNT(K)=0
1) RDEV(K)=0
1) C RDEV IS FOR RAND DEVIATIONS AT RUN TIME
1) NP(K)=0
1) IQ(K)=0
1) IPT(K,1)=0
1) DO 1128 L=1,32
1) 1128 PCH(K,L)=0
1) ITYP=-1
1) JED=-1
1) 2112 TYPE 8002
1) ACCEPT 8001,INNM,J
1) C**** INNM AND IFLNM SHOULD DBL PREC. ON PDP11 (FOR A4 FORMAT)
1) C**** ONLY UP TO 4 LETTERS IN FILE NAMES.
1) 999 IF(INNM.NE.IEDT)GO TO 3112
1) JED=0
1) GO TO 2112
1) C 'EDIT' GOES TO EDIT MODE
1) 3112 IF(INNM.NE.ITP)GO TO 128
1) ITYP=0
1) IFLNM=ITPD
1) C***************** OPEN AN OUTPUT FILE *********
1) CALL OPEN(21,IFLNM,0,'NEW',,,'UNF')
1) CALL READIT
1) C******* IS A5 AVAILABLE?? *************
1) 8001 FORMAT(A4,I)
1) 8002 FORMAT(' TYPE FILE NAME-- '$)
1) 128 IF(INNM.NE.JBLA)IFLNM=INNM
1) C*********** OPEN AN INPUT FILE ******************
1) CALL OPEN(23,IFLNM,0,'RDO')
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,2
1) SOS=-1
1) IF(J.NE.0)SOS=0
1) C TYPE ANY NUMBER AFTER INPUT FILE NAME TO SUPRESS INPUT LISTING.
1) CALL OPEN(1,'RUNIT',0,'NEW',,,'UNF')
1) C**** THIS WRITES A FILE NAMED 'RUNIT.DAT' ********
1) CALL READIT
1) END
**** File 2) SC1X.F4[M11,LCS], Page 2 line 81
2) K=0
2) IDALL=-1
2) QTS=-1.
2) KB=0
2) NWZ=1
2) BNW(1)=0
2) I=1
2) KL=0
2) CC TP=0
2) RA=0
2) CHN=0
2) DO 127 K=1,77,3
2) 127 LIST(K)=0
2) C INITIALIZES MOTIVIC LIST FOR ERROR FINDING ROUTINE.
2) NWX=0
2) BY=-1
2) DO 1128 K=1,KZY
2) INVIS(K)=0
2) INST(K)=0
2) CNT(K)=0
2) RDEV(K)=0
2) C RDEV IS FOR RAND DEVIATIONS AT RUN TIME
2) NP(K)=0
2) IQ(K)=0
2) C IQ IS FOR RESTART FLAG
2) IPT(K,1)=0
2) DO 1128 L=1,NUMP+2
2) 1128 PCH(K,L)=0
2) ITYP=-1
2) C TYPE 'FILE NAME', TEMPO FACTOR(0=1), AMPL.FACT(0=1),
2) C SECONDS TO BE OMITTED, DUR AT CUTOFF.
2) JED=-1
2) 2112 TYPE 8002
2) 1112 ACCEPT 77732,JNP
2) JFM(4)='5F)'
2) JFM(1)=' (A'
2) C FOR FREE 'A' FORMAT
2) CALL FMT(JFM,JNP,MLX)
2) REREAD JFM,K,TF,AMPFAC,OP1,DURX
2) CALL LO2UP(K)
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,2
2) C JFM IS THE CURRENT FORMAT STATEMENT
2) IF(K.NE.'TRUNC')GO TO 2999
2) ITRUNC=-1
2) TYPE 3999
2) GO TO 2112
2) C TRUNCATION SWITCH CONSIDERS PARAMETERS TO BE LOCAL FOR EACH INST.
2) 3999 FORMAT(' TRUNCATION SWITCH SET (PARAMS ARE LOCAL ONLY)')
2) 2999 IF(K.NE.'MUS10')GO TO 999
2) ISAM=0
2) TYPE 1999
2) GO TO 2112
2) C SAMSWITCH ALLOWS FOR OVERLAPS OF INSTRUMENTS AND OMITS 'PLAY' AT TOP.
2) 1999 FORMAT(' MUS10 SWITCH HAS BEEN SET.')
2) 999 IF(K.NE.'EDIT')GO TO 3112
2) JED=0
2) GO TO 2112
2) C 'E(DIT)' GOES TO EDIT MODE
2) 3112 IF(TF.EQ.0)TF=1.
2) IF(AMPFAC.EQ.0)AMPFAC=1.
2) 21122 IF(K.NE.'TYPE')GO TO 128
2) ITYP=0
2) DATA FINM/30H(' TYPE OUTPUT FILE NAME'/) /
2) IFLNM='TYPED'
2) CC IFLNM='FOR21'
2) CC REWIND 21
2) CALL OFILE(21,IFLNM)
2) GO TO 3127
2) 8001 FORMAT(A5,5F)
2) 77732 FORMAT(80A1)
2) 300 FORMAT(I,3F)
2) 128 IF(K.EQ.'INFO')GO TO 1280
2) IF(K.EQ.'HELP')GO TO 1280
2) IF(K.NE.'?')GO TO 3128
2) 1280 TYPE 8002
2) TYPE 1113
2) TYPE 118
2) TYPE 1114
2) TYPE 8002
2) GO TO 1112
2) 118 FORMAT(' TO DSK=1,11 TTY=2,22 BOTH=0,33 LPT=4'/)
2) C118 FORMAT(' TO DSK=1, TTY=2, BOTH=0, LPT=22, PROOF=3, DEBUG=4'/)
2) CC*** TEMPORARY ***8002 FORMAT(' TYPE FILE NAME'/)
2) 8002 FORMAT(' TYPE FILE NAME-- '$)
2) 1113 FORMAT(' YOU MAY TYPE: NAME TEMPO-FAC AMPFAC OMIT" DUR"'//)
2) 1114 FORMAT(' FOR THE ABOVE YOU MAY TYPE UP TO 3 NUMBERS: N1 N2 N3'//
2) 1' N1 = 1 WRITES DATA ON DSK, =2 WRITES ONLY ON SCREEN,'/
2) 1' = 0 WRITES ON DSK AND SCREEN.'/
2) 1' = 11,22,33 ARE THE SAME AS 1,2,0 BUT INPUT LIST IS NOT
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,2
2) 1 WRITTEN ON SCREEN.'/
2) 1/' N2 = RAN NUM INITIALIZATION. N3 = DO ONLY INST. #N'/
2) 1/' ALSO FOR N1: N1=5(OR 55)=DURS ONLY (FOR PROOFING)
2) 1, =6(OR 66)=DEBUG V ARRAY'//
2) 1 3X' UP TO 99 PARAMETERS AND 27 INSTRUMENTS ARE AVAILABLE'/)
2) 3128 IF(K.EQ.IBLA)K=IFLNM
2) CALL IFILE(23,K)
2) IFLNM=K
2) READ(23,300)LN,IXIN
2) C CHECK FOR LINE NUMBERS ONLY.
2) REREAD 8001,K
2) IF(K.NE.'COMME')GO TO 3000
2) 3001 READ(23,77732)JNP
2) IF(JNP(3).NE.ISEMI)GO TO 3001
2) GO TO 3127
2) C TO READ HEADER OF 'ET' FILES
2) 3000 REWIND 23
2) CALL IFILE(23,IFLNM)
2) CC3127 ISLAC=(IFLNM.AND."003777777777).OR."550000000000
2) C MAGIC TO CHANGE LFT. LETTER TO Z(INP. ABCDE BECOMES ZBCDE.DAT)
2) 3127 ISLAC=IFLNM
2) C NOW USES MY FORNAM SUBROUTINE TO PUT EXTENSION .SCR ON OUTPUT
2) 5127 TYPE 118
2) IF(DURX.EQ.0)DURX=19999.
2) IXIN=1
2) INONLY=-1
2) SOS=-1.
2) ACCEPT 300,MX,X,Z
2) IF(MX.NE.99)GO TO 6127
2) TYPE FINM
2) ACCEPT 8001,ISLAC
2) CALL LO2UP(ISLAC)
2) GO TO 5127
2) 6127 IF(Z.NE.0)INONLY=Z
2) IF(X.NE.0)IXIN=X
2) IF(MX.LT.10)GO TO 8127
2) MX=MX/10
2) IF(MX.EQ.3)MX=0
2) SOS=0
2) C MX=10,11,ETC.,22,ETC.(INSTEAD OF 1,2) SUPPRESSES INPUT LISTING.
2) 8127 JOUT=5
2) C 5=OUTPUT TO TTY
2) CC JOUT=3 DIRECT TO LPT AT COLGATE 6/74
2) MZ=0
2) GO TO(110,210,310,410,510,610)MX
2) C 0=DSK,TTY 1=DSK 2=TTY 3=0 4=LPT 5=TTY 6=TTY
2) 310 MZ=-1
2) 110 CALL FORNAM(ISLAC,'SCR')
1) S1.F4[M11,LCS] and 2) SC1X.F4[M11,LCS] 11-29-78 16:19 pages 1,2
2) MX=-1
2) CALL READIT
2) 410 JOUT=22
2) 210 MZ=-1
2) 510 CALL READIT
2) 610 MZ=-6
2) CALL READIT
2) END
2) SUBROUTINE LO2UP(J)
2) C CONVERTS ALL LOWER CASE IN WORD J TO UPPER CASE.
2) J=J.AND..NOT.((J/2).AND."201004020100)
2) END
***************